home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / PSC Alert 267259202001.psc / basTASKBAR.bas < prev    next >
Encoding:
BASIC Source File  |  2001-09-19  |  1.7 KB  |  41 lines
  1. Attribute VB_Name = "basTASKBAR"
  2. Option Explicit
  3.  
  4. Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
  5. Public Const SPI_GETWORKAREA = 48
  6. Public Type RECT
  7.     Left As Long
  8.     Top As Long
  9.     Right As Long
  10.     Bottom As Long
  11. End Type
  12. 'Constants for topmost.
  13. Public Const HWND_TOPMOST = -1
  14. Public Const HWND_NOTOPMOST = -2
  15. Public Const SWP_NOMOVE = &H2
  16. Public Const SWP_NOSIZE = &H1
  17. Public Const SWP_NOACTIVATE = &H10
  18. Public Const SWP_SHOWWINDOW = &H40
  19. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  20. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  21. Public Enum ONTOPSETTING
  22.     WINDOW_ONTOP = HWND_TOPMOST
  23.     WINDOW_NOT_ONTOP = HWND_NOTOPMOST
  24. End Enum
  25. '------------------------------------------------------------
  26. ' Author:  Clint M. LaFever [clint.m.lafever@cpmx.saic.com]
  27. ' Purpose:  Functionality to Set a window always on top or turn it off.
  28. ' Date: March,10 1999 @ 10:18:37
  29. '------------------------------------------------------------
  30. Public Sub SetFormOnTop(formHWND As Long, Optional sSETTING As ONTOPSETTING = WINDOW_ONTOP)
  31.     On Error Resume Next
  32.     Call SetWindowPos(formHWND, sSETTING, 0, 0, 0, 0, FLAGS)
  33. End Sub
  34.  
  35. Public Function GetTaskbarHeight() As Integer
  36.     Dim lRes As Long
  37.     Dim rectVal As RECT
  38.     lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
  39.     GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX
  40. End Function
  41.